program Sept;     {Appel de procedures}

USES CRT;

{*** Les variables globales de mon programme sont declarees ici ***}
Var ch:char;
    err : integer;
    glob1,glob2: integer;

{*** Déclaration de mes procedures ***}
Procedure Toto1;
Begin
  writeln;
  writeln('Execution de la procedure Toto1');
  writeln(' J''affiche n''importe quoi ');
  writeln('... et on sort de la procedure toto1');
  writeln;
End;

Procedure Toto2;
Var a,b : Integer; { a et b variables locales ne sont connues que par la procedure toto2}
Begin
  a:=10;
  b:=15;
  writeln;
  writeln('Execution de toto2');
  writeln('a = ',a);
  writeln('b = ',b);
  writeln('Fin d''execution de toto2');
  writeln;
End;

Procedure Toto3(x,y : integer );
Begin
  writeln;
  writeln('Execution de toto3: x et y sont passΘs en  paramΦtres');
  writeln('x= ',x);
  writeln('y= ',y);
  x:=x+y;
  writeln('Je modifie la valeur de x :');
  writeln('x:=x+y = ',x);
  writeln('Fin d''execution de toto3');
  writeln;
End;

Procedure toto4(x,y : integer);
Var a,b : real;  {variables de type reel declarΘes en local}
Begin
  writeln;
  writeln('Execution de toto4');
  b:=100;
  a:=glob1+glob2+b;  {Je peux utiliser glob1 et glob2 dans mes procΘdures }
  writeln('Dans toto4 a = ',a);
  writeln('Fin de toto4');
  writeln;
End;


BEGIN

  textcolor(Yellow);    {Couleur du texte entre 0 (black) et 15 (white)}
  textbackground(Blue); {Couleur du fond entre 0 (black) et 8 }
  clrscr;

  repeat
   clrscr;
    { Appel de la procedure toto1 }
    toto1;
    { Appel de la procedure toto2 }
    toto2;

   {Appel de la procedure toto3 avec 2 parametres: Glob1 et Glob2 }
    glob1:=10;
    glob2:=20;

    toto3(glob1,glob2);
    writeln('... mais Glob1 et glob2 ont gardé leur valeur');
    writeln('Glob1 = ',glob1);
    writeln('Glob2 = ',glob2);
    writeln('Appuyez sur une touche pour executer toto4');
    ch:=readkey;
    toto4(glob1,glob2);
    Writeln('Voulez vous sortir ? (O/N)');
    ch:=readkey;
  Until (UPCASE(ch)='O') OR (ORD(ch)=27);   {O ou Echap pour sortir}
END.

PROGRAM Huit;     {Programme graphique}

USES CRT,Graph;
Var pilote,mode,i,fonte,direc,taille: Integer;
    x,y:real;

    a: char;


Begin
  pilote:=DETECT;  {Initialisation du mode graphique}
  InitGraph(pilote,mode,'c:\tp7\tp\bgi'); {Donnez le chemin du repertoire bgi}

   {**** Instructions pour tracer des lignes et changer couleur ****}

   setcolor(white);       {choisissez la couleur}
   line(10,10,200,200);   {dessine une ligne du point coordonnees (10,10)
                           au point (200,200)}
   setcolor(red);
   lineto(70,350);
   setcolor(5);           {15 max pour la couleur}
   lineto(500,350);       {Trace une ligne à partir du dernier point}

   putpixel(400,50,yellow); {dessine un point jaune en haut a droite ecran}

     {******  Affichage du texte ******}
   fonte:=2;    {0 α 4}
   direc:=0;    {0 ou 1}
   taille:=8;   {facteur d'agrandissement}
   setcolor(blue);
   settextstyle(fonte,direc,taille);
   outtextXY(100,50,'Appuyez sur une touche :'); {Ne pas utiliser writeln !!}
   a:=readkey;

     {******* Courbe sinus ********}
   x:=0;
   for i:=0 to 1000 do
   begin
     x:=x+0.05;
     y:=100*sin(x);    {Pour avoir une courbe sinus}
     putpixel(trunc(x*10),200-trunc(y),yellow); {trunc renvoie la partie entiere}
   end;

  a:=readkey;
  closeGraph;         {Ferme le mode Graphique}
End.